home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbpictxt.dxr / 00027_save icon.ls < prev    next >
Encoding:
Text File  |  2000-01-27  |  544 b   |  25 lines
  1. property ancestor, MinXLoc
  2. global gDBPicttextVarList
  3.  
  4. on new me, buttonName, castName, xSprite, xLoc, descendant
  5.   ancestor = new(script("generic Button"), buttonName, castName, xSprite, xLoc, me)
  6.   MinXLoc = getAt(xLoc, 1)
  7.   return me
  8. end
  9.  
  10. on performFunction me
  11.   tell the stage
  12.     playSFX(5)
  13.   end tell
  14.   MyObj = getaProp(gDBPicttextVarList, GetObjProp())
  15.   repeat while soundBusy(1)
  16.   end repeat
  17.   save(MyObj)
  18.   return me
  19. end
  20.  
  21. on buttonLoc me, size
  22.   set the locH of sprite the pChannel of me to getAt([MinXLoc, 613], size)
  23.   return me
  24. end
  25.